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MODULE RM3BKTIO 
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updating the reliablity data in the bucket overhead area. 
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i ENVIRONMENT : 
i VAX/VMS OPERATING SYSTEM 

; | 
4 ‘ 
5 ! 
§ AUTHOR: E. H. Marison 28-Mar-1978 
g MODIFIED BY: 
01! v03-004 MCNO002 Maria del C. Nasr 22-Mar-1983 
1 More Linkages reorganization | 
: i v03-003 MCNO001 Maria del C. Nasr 24-Feb-1983 
: Reorganize Linkages. 
61 v03-002 TMK0001 Todd M. 01-Nov-1982 

057 ! Make a modification to p= Eushet format checking done in 
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; 28 38 )} RMSGETBKT. This routine scans the bucket in order to make sure | ; 
; 1 | that the records in the bucket octue ly end where the freespace ‘ 
; 60 1! offset pointer seve they do. Actual 7. one of several scans was ; 
3; «68} 061 1! done based upon the level Bh the bucket prologue version of . 
‘isk | 0o¢ 1! the file, and the state of key compress on. is now possible : 
3; 6 065 1! to do the pene scan for very pose ble cemtemel oe because | : 
; 8664 064 1! have re-written the bebe, ne RMSREC_OVHD to take ante account | : 
; 065 1! every concievable combination of proto ye version. key : 
> 66 B08 1! compression state, and bucket level. "3 change was necessary ; 
; of 067 1! because the format ighectine, of prologue 7208 buckets was : 
; 68 068 1! incorrect, and would occassionally result in an IRC error when ; 
: i Bo? ! the bucket actually had the correct structure. : 
Be. 0071 1: V03-001 KBT0154 Keith B. Thompson 21-Aug-1982 : 
: f Beg : } Reorganize psects : 
; «7h Sore 1 | v02-017 cD$0006 C Saether 8-F eb-1982 F 
: a Bore : } Only do bucket pre=scan when Locking bucket. ; 
ae 0077 1: v02-016 CDS0005 C Sae 28-Jan-1982 ; 
;s 0078 1! Make check for BLB ate of BDB in RLSBKT so that : 
: 4 't44 : } the cache value is stored in gbpb's. : 
: 81 0081 1 | v02=015 CDS0004 C Saether 29-Dec-1981 ; 
= 4404 1! RLSBKT also needs to check whether bucket was locked : 
; o7 it : before incrementing check characters. : 
: 85 0085 1 | vo2-014 cDs0003 C Sae 9-Dec-1981 ; 
; My] Boas ; Comment out velerenees to the CSHSM_READAHEAD flag. : 
; 88 0088 1: v02-013 PSK0005 Paulina S. Knibbe 04-Oct-1981 ; 
; 4 ated : Fix 012 below. : 
; 0091 1 | V02-012 PSK0004 Paulina S$. Knibbe 01-0¢t-1981 ; 
es. 0092 1! Make sure prologue one/two tests are not applied : 
; + 8237 ! to prologue three buckets. : 
: 95 0095 1 | v02-011 cDs0002 C Saether 10-Sep-1981 3 
3 38 Boe ; } Correction to 010. : 
; 98 0098 1 / v02-010 cosooot C Sae 30-Aug-1981 | : 
; 299 0099 1! Have rm$rlsbkt handle ats value of 0 = this occurs : 
; 100 100 1! when trying to release a lock bdb and the file 3 
; 13) 19) ' is not shared. Also store cache value. : 
i 108 0108 1} VO2-009 PSK0003 Paulina S. Knibbe 06-May-1981 | : 
3 ise Ise ! Fix infinite loop in check of compressed index ; 
¢ 182 0106 1; buckets. | : 
: 107 107 1! v02-008 PSK0002 Paulina S. Knibbe 17-Apr-1981 3 
3 6 34 ' Change variable names : 
: 110 110 1! v02-007 PSK0001 Paulina S. Knibbe 29-Mar-1981 ; 
s 95 33 2% Add checks appropriate for prologue Version 3.0 index : 
3 ig We : and SIDR buckets | : 
> 114 14°13 V02-006 REFORMAT Frederick E. Deen, Jr. 23-Jul-1980 | : 
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This code was reformatted to adhere to RMS standards 


i REVISION HISTORY: 


chr igtion Saether, 14-Aug-1978 
Xx0002 = RLSBKT to check if buffer there 


' 
1 
' 
' 
' 
' 
' 
' 
' Christian Saether, 11-Oct-1978 

X0003 = modify GEfBKT to use REC_OVHD, reduce stack at 10 
‘ 

' 

' 

' 

' 

' 

' 


} 
| 
| 
| 
Christian Saether, 19-Oct-1978 
X0004 = GETBKT always releases bucket on error if still accessed 


Wendy Koenig, 24-0ct-1978 
x000 


- Make changes caused by sharing conventions 
LIBRARY ‘RMSLIB:RMS'; 

REQUIRE "RMSSRC:RMSIDXDEF'; 

Define default PSECTS 


ts 4 a a a a i et tt 


WAWANANAN AAR IPIPOPEPPOPYNYINY DN 2 2 PS 


o 
o 
= 
m 
“uu 


RMSRMS3(PSECT_ATIR 
RMSRMS3(PSECT-ATIR 


LINKAGE 
L_PRESERVE1 
RABREG 457, 
“REC_OVAD, 
L~CACRE 
L-RELEASE; 
: Forward Routines 
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FORWARD ROUTINE 
RMSRLSBKT =: RLSPRESERVE1; 


External Routines 
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EXTERNAL ROUTINE 

RMSCACHE : RLSCACHE, 
RMSREC_OVHD : RL$REC_OVHD, 
RMSRELEASE : RLSRELEASE; 
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GLOBAL ROUTINE RMSGETBKT (VBN, SIZE) : RLSRABREG_457 = 


++ 
RMSGETBKT 


This routine calls the RMS cache routine (RMOCACHE) for 

' the requested bucket (VBN LAP If an actual 10 was done 

(i.e., the CSHSV_NOREAD, €SH V_READAHEAD, or CSHSV_NOBUFFER bits 

i are all off) and "it was successful then the bucket’s overhead 

' area data is checked and if in error a status value o 

' RMSS_CHK, RMS$_IRC, or RMS$_IBF is returned depending on 

the nature of Ehe error. IRABCIRBSB_CACHEFLAGS] is always zeroed. 


CALLING SEQUENCE: 
RMSGETBKT (VBN,SIZE) 


INPUT PARAMETERS: 
VBN = Start VBN for bucket 
SIZE = Number of bytes in bucket 


IMPLICIT INPUTS: 
IRAB C CACHEFLGS J - cacheflags for CACHE (See RMOCACHE) 
IDX_DFN = used by RMSGETNEXT_REC routine 


OUTPUT PARAMETERS: 
BDB - Address of BDB for bucket 
BKT_ADDR -_Address of the bucket buffer 
RAB C STV J = VBN of bucket on IRC and IBF errors 


IMPLICIT OUTPUTS: 
IRAB C CACHEFLAGS J zeroed 


4 
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ROUTINE VALUE: 
Internal RMS status code 
| 
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SIDE EFFECTS: 
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07 7 R1,R2,R3,AP are destroyed 
08 7 

09 7 -- 

10 7 

11 7 BEGIN 

12 7 

1 7 LABEL 

14 7 BLK; 

15 7 

16 7 EXTERNAL REGISTER 

1 a1 RIDX DENTSTR, 

8 8¢ COMMON_RAB_STR; 

21 bs LITERAL 

3¢ 5 NODATABITS = (CSHSM_NOREAD 
34 5? i CSH$M_READAHEAD 

26 89 CSHSM_NOBUFFER), 
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} 
| 
PVN1_BITS = BKTSM_LASTBKT | 
BKTSM_ROOTBKT; | 
BEGIN 
LOCAL 
STATUS; 
IF (STATUS = RMSCACHE(.VBN, .SIZE, .IRABCIRBSB_CACHEFLGSJ)) 
BEGIN 
IF (, IRABCIRB$B_CACHEFLGS) 
Bernat: NEQ 0 
BEGIN 
AEAGaATOSAfGgterees) = 0 
END 


END 
ELSE 


BEGIN 
IRABCIRB$B_CACHEFLGS] = 0; 
RETURN .STATUS 


END; 
END; ! of this local STATUS 
BEGIN 


LOCAL 
STATUS; 


STATUS = 
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BEGIN 
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LOCAL 
REC_SIZE, 
EOB 
LEVEL; 
GLOBAL REGISTER 
R_REC_ADDR; 


IF (.BKT_ADDRIBKTS$W_ADRSAMPLE] NEQU .(BDBCBDBSL_VBnJ)<0, 16> | 
-BKT ,ADDRCBKTSB_CHECKCHAR] NEQU .(.BKT_ADDR + .BDBCBDBSW_NUMB] - 1)<0, | 
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LEAVeé BLK WITH RMSERR(CHK); 


—_ i — - a — — 


13 
RM3BKTIO 1e-Se -1984 01:37:1 VAX-11 Bliss-32 V4.0-74 Page 6 
v04-000 1er8ep- 1984 13:01:13 — DISKSVMGMASTERSERMS. SRCIRMSBKTIO.B32¢1°° (25 
; 284 47 4 ' Check to make sure that onty prologue version 1 bits are on and that : 
; o? a3 ? ; the beginning of freespace is somewhere in the bucket. ; 
; 28 50 4 ; 
; 288 51 4 If .IFAB CIFB$B_PLG_VER] LSSU PLGSC_VER_3 ; 
; 289 26 4 THEN 3 
:; 290 4 ; 
; 291 22 2 BEGIN | ; 
; 22 2 IF (.BKT_ADDRCBKTS$B_BKTC8] AND NOT PVN1I_BITS) NEQ 0 ‘ 
; 5 5 37 5 -BKT_ADDRCBKT$W_FREESPACE] GTRU .BDOBCBDB$W_NUMB) | ; 
; 96 0359 LEAVE BLK WITH RMSERR(IBF); | : 
; 297 0360 END : 
; 298 0361 5 : 
; 299 B06 5 ! Check the KEYREF matches index number for this bucket ; 
; 500 0365 5 ' (If this is a prologue 5 file) ; 
; 301 0364 5 : : 
3 we 0365 4 ELSE ‘ 
; Sor tg: : IF .IDX_DFN CIDX$B_KEYREF] NEQ .BKT_ADDR CBKT$B_INDEXNO) : 
3 $02 tye 2 LEAVE BLK WITH RMSERR (IBF); ; 
; 309 0370 4 IF NOT .BBLOCKCIRABCIRBSB_CACHEFLGSJ, CSH$V_LOCK] ; 
; 308 0371 4 THEN 3 
3; OP $378 4 | ; 
3; SiO 0373 5 BEGIN ; 
, 6at) 0374 5 STATUS = RMSSUC(SUC); | ; 
i 32 0375 5 IRABCIRBS$B_CACHEFLGS) = 0; | ; 
ae 0376 5 RETURN .STATUS; ‘ 
3; «314 0377 4 END; 3 
3 3519 0378 4 ; 
; 316 0379 4 ! Make one scan through entire bucket confirming that records actually end : 
3 HES Bae) 2 where freespace says they do. : 
H 319 0382 4 EOB = .BKT_ADDR + .BKT_ADDRCBKT$W_FREESPACE]; : 
; $59 ttt ? REC_ADDR =".BKT_ADDR + BKT$C_OVERADSZ; : 
; 322 0385 4 IF (LEVEL = .BKT_ADDRCBKT$B_LEVEL]) EQL 0 : 
; Se 0386 4 THEN : 
3 24 0387 4 IF .IDX_DFNCIDX$B_KEYREF] NEQ 0 : 
3 dee 0388 4 THE ; 
$ 63ee 0389 4 LEVEL = .LEVEL = 1; ; 
; sf Baar 4 : 
; 8 91 4 WHILE .REC_ADDR LSSA .EOB : 
; $3 Ba26 4 DO ; 
; 0 tH 5 BEGIN | : 
ie} } 0394 5 REC_ADDR = RMS$REC_OVHD(.LEVEL; REC_SIZE) + .REC_ADDR; 3 
; 32 395 5 REC"ADDR = .REC_ADDR + .REC_SIZE; | : 
; 33 36 4 END; : 
3 «64534 4 4 3 
; 35 98 4 IF .REC_ADDR EQLA .E0B ; 
; 38 B76 4 THEN 3 
: 400 5 BEGIN : 
: 338 ott 2 FLATS = RMSSUC(SUC); 3 
; 339 4 é IRAB CIRB$B_CACHEFLGS) = 0; | ; 
; 340 0403 5 RETURN .STATUS; | ; 
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| 
> 341 404 4 END; | 
rk 208 d ' REC_ADDR did not match wh FREESPACE said it should | 
Raz beoF 2 * not match where said it shou | 
> 345 0408 RMSERR(IRC) 
: 18 B78 END; ! of block BLK 
: 348 eRe ! If we got this far there was an error epoca ine something, so release 
: r?4 Brig : Bont. bucket and return the error save VBN in the STV. Mark the bucket 
: 351 414 RABERABSL “stTv) = .BDBCBDBSL_VBN); 
: 26 “12 BDBLBDB$V_VAL) = 0; 
: 354 0417 4 BEGIN 
3 39 Beis 4 | 
3; 320 419 4 GLOBAL REGISTER 
3 Sor 0420 4 R_REC_ADDR; 
; $26 0421 4 
; 359 04 ¢ 4 RMSRLSBKT(0); 
; 360 04 END; 
; 361 0424 
3 306 0425 IRABCIRBS$B ae = 0; 
$ (36 0426 RETURN .STATU 
368 0458 3 END ! of d block defini STATUS | 
 3ee B58 i ENP ! of secon ock defining | 


TITLE = RM3BKTIO | 
IDENT \V04-000\ 


-EXTRN RMSCACHE, RMSREC_OVHD 
-EXTRN RMSRELEASE 


-PSECT RMSRMS3,NOWRT, GBL, PIC,2 


004C 8F 6B 00000 RMSGETBKT:: 
PUSHR #*M<R2,R3,R6> ; 0233 


#8, SP 
PUSHAB 64(IRAB) 


40 A9 SF 00007 : 0299 
53 00 BE 9A 0000, MOVZBL a0(SP), R3 : 
53 1C AE 7D 0000 MOVO -VBN : 
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00 BE 9% OOO1E 1$ CLRB = @0( SP) : 0316 
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1C AG 02 AS BI 00024 2s: CMP (BKT_ADDR), 28(BDB) : 0340 
08 12 00029 BNEQ $ : 
50 14 A 3¢ 00028 MOVZWL 20(BDB) : 0342 | 
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H $8 ; 1 ! GLOBAL ROUTINE RMSRLSBKT (FLAGS) : RLSPRESERVE! = ; 
Ola oh : 
3 18 : 5 FUNCTIONAL DESCRIPTION: | : 
; 375 4 : 1 ! This routine releases access to the bucket described by ; 
3 6 be 8 1 ! the BDB and if a write may be performed (i.e; there is a : 
oe 4 1! buffer and it's dirty) then the bucket check characters ; 
; 578 0440 1 ! are incremented. Bug check is called if the address sample . 
; 9 re. : in the buffer does not match the VBN being released. ; 
; Hi gues 1 ! CALLING SEQUENCE: ; 
; $68 444 1! RMSRLSBKT (FLAGS ,BDB) $ 
; 0445 1! F 
; 384 Rees 1 ! INPUT PARAMETERS: 3 
3 389 0447 1! BDB - The address of the BDB for the bucket : 
; 386 0448 1! flags - The release control flags (see RMORELEAS) H 
; Jer 0449 1! : 
; 388 0450 1 ! IMPLICIT INPUTS: 3 
; 389 0451 1! None 3 
; 390 Bees 1! : 
; 91 045 1 ! OUTPUT PARAMETERS: : 
3 4 0454 1! None F 
3; 39 0455 1! : 
3 394 0456 1 ! IMPLICIT OUTPUTS: | : 
; 395 0457 1! None 3 
; 396 0458 1! 3 
; 397 0459 1 ! ROUTINE VALUE: ; 
; 398 0460 1! Internal RMS status code : 
; 399 0461 1! 3 
; 400 pees 1 ! SIDE EFFECTS: | 3 
: 401 0465 1! R1,R2,AP Destroyed | : 
; 402 0464 1! Bug check called on address sample and VBN mismatch ‘ 
; 403 0465 1! | 3 
: 404 0466 1 !-- | : 
; 405 0467 1 : 
; 406 0468 2 BEGIN : 
; 407 0469 2 3 
; 408 0470 ? EXTERNAL REGISTER 3 
; 409 0471 2 COMMON_RABREG, 3 
; 410 047 R_BDB_STR; | ; 
3: «411 047 : 
: tig 474 LOCAL ; 
3 (GT 475 BUCKET : REF BBLOCK; é 
; 414 047 | : 
3 6415 047 BUILTIN 3 
3; 416 478 TESTBITSC; 3 
; 417 479 : : 3 
; 418 0480 ! Note that BDB's and GBPB's share identical fields in general, : 
3 rt bie therefore the references to BDB fields may be GBPB's also. : 
: 421 4 ; 
3 i ab IF .8DB EQL O OR (.BDBCBDB$B_BID] EQL BLBSC_BID) 3 
; 34 5 THEN RETURN RMSRELEASE(.FLAGS); : 
3; 425 189 ! If the bucket may be written then update the check characters. : 


RM3BKTIO 16- 43 
voc-00 Peet Pk et 


' 
IF .BDBCBDBS$V_VAL) 


(.BDBCBDBS$W_SIZE) NEQ 0) 
THEN 


BEGIN 
BUCKET = .BDBCBDBSL_ADDRI; 


3 «6 

: 258 189 

; 428 490 

; 429 491 

; 430 136 

; 431 49 

; 4 ¢ 494 

; 4 Beoe 

> 434 $36 

; 435 049 ' check the address sample for validity 

te | 

$ : 4 289 IF .BUCKETCBKT$W_ADRSAMPLE] NEQU .(BDBCBDBS$L_VBNJ)<0, 16> 

; 440 206 BUG_CHECK; 

3; 441 50 

3 rr 504 IF .BDBCBDB$V_DRT) 

3 «446 B20? THEN 

3 444 208 4 GIN 

3 6445 0507 4 LOCAL PTR : REF BBLOC 

> 446 0508 4 PTR = gpecepesi _BLB_ pir): 

3; 4467 0509 4 IF .PTR EQL 0 

; 448 0510 4 THEN 

; 449 0511 5 BEGIN 

: 450 Beg 5 BUCKETCBKT$B_CHECKCHAR] = ETCBKT$B_CHECKCHAR] + 1; 
3 23) 931? 2 (BUCKET + ,BDB(S8DBSW_ NUMBI = <0, 8> = MBUCKET aKTSB: _CHECKCHAR); 
3 re 0515 4 ELSE IF .PTRCBLBS$V_LOCK] 

3; 6454 0516 4 THEN 

; 455 0517 5§ BEGIN 

; 456 0518 5 BUCKETCBKT$B_CHECKCHAR] = .BUCKETCBKT$B_CHECKCHAR] + 1; 
: 457 0519 5§ (.BUCKET + .BDBCBDBSW_NUMB] - 1)<0, 8> = MBUCKETCaKTSB: _CHECKCHAR); 
; 458 0520 4 D; 

; 459 0521 : END; 

; 460 B2s6 

: 461 052 ' Use the level in the tree as the cache value of the bucket. 
3 $86 0524 ! If permanence was asked for, give it another boost. 

: 46 0525 ! 

: 464 0526 

3; 465 0527 BDBCBDBS*_CACHE_ VAL] = .BUCKETCBKTSB_LEVEL); 

3; 466 0528 IF TESTBITSC (BDBCBDBSV_ PRM)) 

3; 467 0529 THEN 

3 reed b2 ? BDBCBDB$B_CACHE_VAL] = .BDBCBDB$B_CACHE_VAL) + 1; 

; 470 0832 END; 

3; «6471 053 

; «47 0534 RETURN RMSRELEASE(.FLAGS); 

: 47 8232 

: 674 536 (1 END; 


-EXTRN RMSBUG3 


OE BB 00000 RMSRLSBKT:: 
PUSHR #*M<R1,R2,R3> 
D5 00002 TSTL BDB 


V4.0=74 P 0 
SCRMS SRCSRMSBKTI0.83201°° (35 


0431. 
0484 | 


. 
on 
7 
° 
. 
_ 
. 
os 
o 
. 
e 
. 
a 
. 
e 
. 
. 
. 
. 
. 
a 
+ 
° 
- 
. 
. 
e 
. 
2 
. 
e 
. 
a 
- 
o 
. 
o 
. 
_ 
+ 
o 
- 
‘ 
. 
° 
. 
- 
. 
*. 
o 
e. 
. 
. 
. 
e 
. 
o 
. 
co 
. 
e 
. 
. 
. 
e 
. 
o 
. 
a 
. 
os 
. 
o 
° 
o 
. 
o 
. 
a 
. 
. 
. 
o 
+ 
o 
. 
. 
6 
. 
. 
. 
. 
. 
a 
. 
. 


-- om WO =—TOOMMO FDOT O 
my Ooo GOO OCOCOCOHnNHN- NNMM | 

—_ ww To MWNMWMMom Mw Ww 
® oo Oo0O OCOCOooOoOoOoO eGO0OC°COoO oO 
oa Perera era, ere er ee er ee ee ee er ee eo eo  Y 
Om 


P 


N 
nal 
@ 
. 
o 
— 
— 
Cat 
@ 
Lf) 
EL 
= 
Nm 
~ ad 
Lae: 4 
wm 
oO - 
wo 
v= qa 
>a _ ~ 
ws Pe) N 
Ne 4 ~ 
ma wv za 
tw o- o 
ne ~ am — 
awn @ r=) a4 
—< a ~@ c-¢ ao 
_—~= —@ og o~nw . c wv | 
aw uw~ Le] aews w od . | 
= oo ee A —_ “ oOo | 
-> on = - . ~» a “ J j 
| —A oOo AF pa “ke A or ea [= 4 a - 
‘» - mom @amcae ~@ wes ve Oo 
=xwW eS ~ a -—-oa moc 7 oe Oo 
| aq n —— @m. _ sw catia r 4 er i 
| >a Se ted aw Mwee Ce ete ae el we. oO a | 
~ @20 @O-x~ VOD AwOwvro® +i- ra | 
| @ aca AY Dea Ff «KOM DK OMWe i 
a @@ @OD> @ @ avrOra®@ qgmuacv 
j @ ~w ~o fF ~~ ~7JD~7DwY wet wee . 
| OM RH RHONSHTI RZ OVHODOOCOwM- I =< ad 
| —— SOT Tie CBR VR Yh Nw ee ee ce we - 
os eo a 
| t— ne 
MO = ea w 
- sz . oa wh 
— 4MsVBsI3Bsu3s 4 svanoovredi3c a osc). =< 
Oo- 20O0M-SOr>ac00Ovr>roqavu>r > l>vevr-O0f@ @ ast 
WwEwIMWOZwWMOODOw tiZ0OOCOMOZOMOM o 
TTF OVLOO-OlCMOOOlLOO—FTzzEO-ZOAcec 
on w ~ 
tf oe <« 
‘es -~ = 
aa => i~- ww 
mee oo o 2 Oo 'c 
nn fe ced A oe - 2 '@ 
| - N Le] w (= . 'v 
oowr ~~ w ‘ce 
—— TOLVOMMGO WOMOVWNT DOW fw MM ~ x« ‘ee 
DOO NII CCCP AT TT TUN <= w ‘a 
COOCCOCCOCOCOOCOCOCOOCOCOCOOOOCOOoOOoOoOooOO tv 
SOOCCOCCOCOCOOCOCOOCOOCOOOCOCOOOCOOOoOoooOoOo 
SOOoOCOCOOCOOOOOCOCOOCOOOOOOoOoOoOO . en on 
— 
PM MF UMIMO-— MO OM F OLVOCOt oooam KF oa oe wo 
oOo o o ~o 
Tas TNT OM eT TOO TCIM TF wow ° “ww 
SS OS eS eset sa + = . 
Oo oOo ~~ > a ' 
“” < oOo § 
o <o wr o =< w~ wv wo = <= 2 vo tim @& 
o O-- -oO - & - ©& Oe < . ,» 1(8 ©& 
A — = ir -— 
= ws ~ 1om 
ec ” > 4) i 
Oo nig 
be = ~ 
ee w L-) 
a w — 
o <« Nu zo ff OoNvTwST ™ a) ” ~~ ” 
- ~- wet <m Oo mwa w b-] a @ 
Oo @ N ~ 
< a) ee 
ew oe eo 
VY —/ uw Oct c a . 
_- oO uOO - ~ 2 
oe @ - 
5 a) - 
°o +s 
< N 
= ~~» 
oO a) 
a . 
| w ~~ es. a 2] 
_— oO - z oul = 
" ww a 
aw 0 
ee re O - 
| = © 
2 
| ORO ° 
~w MMM wT 2) 
t*) Mnmwn te 
oooo « 
Par) 
e rs) 
N N 
- ae eo <« 
ww €& — = 
om - & 
a zw” —_ 
oO c = wow 
S 2 a oe 
= oo WOr.o 
uo 3 Le ed = aa 
vwvwvwv 
ap 4 [° 4 
= 
c> *. ererere a teretere eter te tere 


as 


greet 


nm Time 
plas Time: 
Lines/CPU Min: 
yonenenl Sn 


Memor 
Compi 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:RM3BKTIO/OBJ=OBJ$:RM3BKTIO MSRC$:RM3BKTIO/UPDATE=(ENH$: RM3BKTIO) 
283 soge + 0 data bytes 


mh 


102 pages 


Li Comple 


te 


H 13 
yer eeah Bt PEST Ty «PTS SUmeHASTERSCUMS Sec TRMSBKTIO.832¢4°° AM 


COMMAND QUALIFIERS 


